home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / programm nr. 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  462b  |  27 lines
  1. 100 REM   ***   PROGRAMM NR.2   ***
  2. 110 :
  3. 120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
  4. 130 CLS=938:PLOT=820
  5. 140 :
  6. 150 X0=160:Y0=100  :REM  MITTELPUNKT
  7. 160 XR=90 :YR=80   :REM  X & Y-RADIUS
  8. 170 :
  9. 180 POKE53265,59:POKE53272,24:PRINT"[147]"
  10. 190 SYS CLS
  11. 200 :
  12. 210 FORX=XRTO0STEP-1
  13. 220 Y=SQR(XR*XR-X*X)*YR/XR:Y2=Y
  14. 230 SYS PLOT,X0+X,Y0+Y
  15. 240 SYS PLOT,X0+X,Y0-Y
  16. 250 SYS PLOT,X0-X,Y0+Y
  17. 260 SYS PLOT,X0-X,Y0-Y
  18. 270 Y=Y-1:IFY>Y1THEN230
  19. 280 Y1=Y2
  20. 290 NEXTX
  21. 300 :
  22. 310 POKE198,0:WAIT198,1:GETA$
  23. 320 :
  24. 330 POKE53265,27:POKE53272,21
  25. 340 END
  26. 350 :
  27.